home *** CD-ROM | disk | FTP | other *** search
- #ifndef _ins_h
- #define _ins_h
-
- // $Log: ins.h,v $
- //Revision 1.1 1994/04/08 15:27:59 peter
- //Initial revision
- //
-
- #include <iostream.h>
- #include "basics.h"
-
- const uint nChars = 256;
- typedef uchar Char;
-
- const uint CHAR = 0;
- const uint GOTO = 1;
- const uint FORK = 2;
- const uint TERM = 3;
- const uint CTXT = 4;
-
- union Ins {
- struct {
- byte tag;
- byte marked;
- void *link;
- } i;
- struct {
- ushort value;
- ushort bump;
- void *link;
- } c;
- };
-
- inline bool isMarked(Ins *i){
- return (bool) i->i.marked;
- }
-
- inline void mark(Ins *i){
- i->i.marked = true;
- }
-
- inline void unmark(Ins *i){
- i->i.marked = false;
- }
-
- #endif
-